home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9210a.d64 / highsc schreiben (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  350b  |  20 lines
  1. 100 FOR A=1 TO 10
  2. 110 PL$(A)="MUELLER"+STR$(A)
  3. 120 PU(A)=100*A
  4. 130 NEXT A
  5. 140 GOSUB 16000
  6. 150 END
  7. 1650 OPEN 1,8,15
  8. 16000 REM HIGSCORELISTE SCHREIBEN
  9. 16050 OPEN 1,8,15
  10. 16060 OPEN 2,8,2,"HIGHSCORE,S,W"
  11. 16070 INPUYT#1,F,F$,T,S
  12. 16080 IF F<>0 THEN 16140
  13. 16090 X=0
  14. 16100 FOR IN = 1 TO 10
  15. 16110 IF PU(IN+X) < PN THEN PRINT#2,NA$:PRINT#2,PN:X=1
  16. 16120 IF PU(IN+X) >PN THEN PRIN#2,PL$(IN+X):PRINT#2,PU(IN+X)
  17. 16130 NEXT IN
  18. 16140 CLOSE2
  19. 16150 CLOSE1
  20.